Developer CD Series 1996 March: Reference Library/Dev.CD Mar 96 RL/Dev.CD Mar 96 RL.toast/Utilities/Developer Forms/C⁄F Registration Requests/C⁄F Registration v2.0/C_F Registration v2.0/background_2775.xml

Extensible Markup Language | 1995-07-26 | 42.7 KB | 1,313 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2775</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3835.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3299.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>17</left>
            <top>29</top>
            <right>331</right>
            <bottom>56</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Times</font>
        <textSize>24</textSize>
        <textStyle>bold</textStyle>
        <textHeight>32</textHeight>
        <name>Form Title</name>
        <script></script>
    </part>
    <part>
        <id>24</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>191</top>
            <right>25</right>
            <bottom>220</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>26</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>28</top>
            <right>25</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>340</left>
            <top>315</top>
            <right>409</right>
            <bottom>333</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Save</name>
        <script>on mouseup
doMessageSave
end mouseUp

on mouseEnter
global gFileTypeHelp
if gFileTypeHelp is not empty
then doHelp the short name of me
end mouseEnter

on mouseLeave
if visible of cd fld ("Help" && short name of me)
then hide cd fld ("Help" && short name of me)
end mouseLeave</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>166</left>
            <top>191</top>
            <right>187</right>
            <bottom>220</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>45</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>77</left>
            <top>55</top>
            <right>257</right>
            <bottom>69</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Name</name>
        <script></script>
    </part>
    <part>
        <id>46</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>77</left>
            <top>68</top>
            <right>257</right>
            <bottom>82</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Company</name>
        <script>on mouseEnter
global gFileTypeHelp
if gFileTypeHelp is not empty
then doHelp the short name of me
end mouseEnter

on mouseLeave
if visible of cd fld ("Help" && short name of me)
then hide cd fld ("Help" && short name of me)
end mouseLeave</script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>77</left>
            <top>81</top>
            <right>257</right>
            <bottom>134</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Address</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>77</left>
            <top>133</top>
            <right>257</right>
            <bottom>147</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Phone</name>
        <script></script>
    </part>
    <part>
        <id>49</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>77</left>
            <top>146</top>
            <right>257</right>
            <bottom>160</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>AppleLink</name>
        <script></script>
    </part>
    <part>
        <id>53</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>285</left>
            <top>58</top>
            <right>329</right>
            <bottom>72</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>Specify</name>
        <script></script>
    </part>
    <part>
        <id>54</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>330</left>
            <top>57</top>
            <right>495</right>
            <bottom>72</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Other Product</name>
        <script></script>
    </part>
    <part>
        <id>63</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>77</left>
            <top>171</top>
            <right>257</right>
            <bottom>186</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Product Name</name>
        <script></script>
    </part>
    <part>
        <id>64</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>24</left>
            <top>198</top>
            <right>128</right>
            <bottom>228</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <textHeight>13</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>65</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>192</left>
            <top>197</top>
            <right>296</right>
            <bottom>227</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <textHeight>13</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>66</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>253</left>
            <top>315</top>
            <right>322</right>
            <bottom>333</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Back</name>
        <script>on mouseup
global gDIAFromDIA
if (bg fld "Signatures" is not empty) ¬
or (bg fld "Custom File Types" is not empty) ¬
or (bg fld "Custom Resource/Scrap Types" is not empty) then
answer "Save the message in a text file?" with "Cancel" ¬
or "Back" or "Save"
if it is "Cancel" then exit mouseUp
if it is "Back" then
goToDIA
exit mouseUp
end if
if it is "Save" then
doMessageSave
end if
else
goToDIA
end if
end mouseUp

on goToDIA
global gDIAWhereDIA
if there is a window "Developer Info Assistant" then -- IF ALREADY OPEN
show window "Developer Info Assistant"
else if gDIAWhereDIA is not empty then
go stack gDIAWhereDIA in a new window
else
put thisFolder()&"Developer Info Assistant" into localName
if there is a file localName then -- IN CURRENT FOLDER
go stack localName in new window
else
answer file "Please locate the Developer Info Assistant Stack. It must"¬
&& "be on your local hard disk."
if it is "cancel" then exit goToDIA
go stack it in new window -- LAST RESORT ASK WHERE
end if
end if
end goToDIA

on mouseEnter
global gFileTypeHelp
if gFileTypeHelp is not empty
then doHelp the short name of me
end mouseEnter

on mouseLeave
if visible of cd fld ("Help" && short name of me)
then hide cd fld ("Help" && short name of me)
end mouseLeave</script>
    </part>
    <part>
        <id>73</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>269</left>
            <top>47</top>
            <right>294</right>
            <bottom>76</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>74</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>486</left>
            <top>52</top>
            <right>505</right>
            <bottom>67</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Zoom General Information</name>
        <script>on mouseUp
ZoomToTextWindow
end mouseUp</script>
    </part>
    <part>
        <id>75</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>292</left>
            <top>67</top>
            <right>505</right>
            <bottom>186</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>General Information</name>
        <script></script>
    </part>
    <part>
        <id>77</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>298</left>
            <top>53</top>
            <right>420</right>
            <bottom>68</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>480</left>
            <top>25</top>
            <right>506</right>
            <bottom>49</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>25002</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>HelpButton</name>
        <script>on mouseUp
global gFileTypeHelp
if gFileTypeHelp is empty then
answer "You have just turned on the Help facility." & return ¬
& "To turn it off, click on this button again."
put "true" into gFileTypeHelp
set hilite of me to true
else
answer "You have just turned off the Help facility." & return ¬
& "To turn it on, click on this button again."
put empty into gFileTypeHelp
set hilite of me to false
end if
end mouseUp
</script>
    </part>
    <part>
        <id>82</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>22</left>
            <top>228</top>
            <right>137</right>
            <bottom>305</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Signatures</name>
        <script>on mouseEnter
global gFileTypeHelp
if gFileTypeHelp is not empty
then doHelp the short name of me
end mouseEnter

on mouseLeave
if visible of cd fld ("Help" && short name of me)
then hide cd fld ("Help" && short name of me)
end mouseLeave

on closeField
put uniqueIDs (short name of me) into it
end closeField

on exitField
put uniqueIDs (short name of me) into it
end exitField</script>
    </part>
    <part>
        <id>83</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>187</left>
            <top>228</top>
            <right>301</right>
            <bottom>305</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Custom File Types</name>
        <script>on mouseEnter
global gFileTypeHelp
if gFileTypeHelp is not empty
then doHelp the short name of me
end mouseEnter

on mouseLeave
if visible of cd fld ("Help" && short name of me)
then hide cd fld ("Help" && short name of me)
end mouseLeave

on closeField
put uniqueIDs (short name of me) into it
end closeField

on exitField
put uniqueIDs (short name of me) into it
end exitField</script>
    </part>
    <part>
        <id>84</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>344</left>
            <top>228</top>
            <right>493</right>
            <bottom>305</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Custom Resource/Scrap Types</name>
        <script>on mouseEnter
global gFileTypeHelp
if gFileTypeHelp is not empty
then doHelp the short name of me
end mouseEnter

on mouseLeave
if visible of cd fld ("Help" && short name of me)
then hide cd fld ("Help" && short name of me)
end mouseLeave

on closeField
put checkLength(short name of me) into it
end closeField

on exitField
put checkLength(short name of me) into it
end exitField</script>
    </part>
    <part>
        <id>86</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>122</top>
            <right>99</right>
            <bottom>171</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 1</name>
        <script></script>
    </part>
    <part>
        <id>87</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>186</left>
            <top>106</top>
            <right>262</right>
            <bottom>155</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 1</name>
        <script></script>
    </part>
    <part>
        <id>89</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>178</top>
            <right>99</right>
            <bottom>228</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 2</name>
        <script></script>
    </part>
    <part>
        <id>90</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>232</top>
            <right>98</right>
            <bottom>282</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 3</name>
        <script></script>
    </part>
    <part>
        <id>92</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>186</left>
            <top>161</top>
            <right>261</right>
            <bottom>210</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 2</name>
        <script></script>
    </part>
    <part>
        <id>93</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>186</left>
            <top>215</top>
            <right>261</right>
            <bottom>264</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 3</name>
        <script></script>
    </part>
    <part>
        <id>94</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>21</left>
            <top>286</top>
            <right>99</right>
            <bottom>336</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 4</name>
        <script></script>
    </part>
    <part>
        <id>95</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>186</left>
            <top>268</top>
            <right>262</right>
            <bottom>317</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 4</name>
        <script></script>
    </part>
    <part>
        <id>96</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>107</top>
            <right>341</right>
            <bottom>156</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 5</name>
        <script></script>
    </part>
    <part>
        <id>97</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>161</top>
            <right>341</right>
            <bottom>210</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 6</name>
        <script></script>
    </part>
    <part>
        <id>98</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>215</top>
            <right>341</right>
            <bottom>264</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 7</name>
        <script></script>
    </part>
    <part>
        <id>99</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>268</top>
            <right>341</right>
            <bottom>317</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Custom File Types 8</name>
        <script></script>
    </part>
    <part>
        <id>100</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>123</top>
            <right>183</right>
            <bottom>173</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 5</name>
        <script></script>
    </part>
    <part>
        <id>101</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>179</top>
            <right>183</right>
            <bottom>229</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 6</name>
        <script></script>
    </part>
    <part>
        <id>102</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>232</top>
            <right>183</right>
            <bottom>282</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 7</name>
        <script></script>
    </part>
    <part>
        <id>103</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>288</top>
            <right>183</right>
            <bottom>338</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Taken Signatures 8</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>C/F Registration Requests</text>
    </content>
    <content>
        <layer>background</layer>
        <id>53</id>
        <text>Specify:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>64</id>
        <text>Creator Types:
Must be Unique</text>
    </content>
    <content>
        <layer>background</layer>
        <id>65</id>
        <text>File Types:
Need Not be Unique</text>
    </content>
    <content>
        <layer>background</layer>
        <id>77</id>
        <text>General Information:</text>
    </content>
    <name>entry</name>
    <script>on ZoomToTextWindow    -- In-Yung
put word 2 to 99 of the short name of the target into windowTitle
if there is a window windowTitle then
send "select" to window windowTitle
exit ZoomToTextWindow
end if
set lockText of bg fld windowTitle to true

put (the left of bg fld windowTitle) + (item 1 of the rect of card window) - 1 into theLeft
put (the top of bg fld windowTitle) + (item 2 of the rect of card window) + 5 into theTop
put 500 + theLeft into theRight
put 250 + theTop into theBottom
put "Geneva" into theFont
put 12 into theFontSize
put 16 into theLineHeight
put -1 into theLineLength
put bg fld windowTitle into theText

TEXWindow windowTitle,bg fld windowTitle,theLeft,theTop,theRight,theBottom,theFont,theFontSize,theLineHeight,theLineLength
get the result
if it is not empty then
answer it
end if
set the locktext of window windowTitle to true
end ZoomToTextWindow

function getBodyText
put headerInfo() into body
put customerInfo() after body
put signatureInfo() after body
put fileTypeInfo() after body
put resourceTypeInfo() after body
return body
end getBodyText

on doMessageSave
put getBodyText() into bodyMessage
ask file "File name to use for this text?" with "Creator/File Type Reg."
if It is empty then exit doMessageSave
put it into fileName
open file fileName
write bodyMessage  to file fileName
close file fileName
get the result
if it is not empty then
answer "ERROR:  " & return & it
else
put changeFileType (fileName,"TEXT","ttxt") into it
if it contains "noError" then
answer "A TeachText TEXT file has been created."
else
answer it
end if
end if
end doMessageSave

function uniqueIDs fieldName
put bg fld fieldName into tempText

repeat with i = 1 to number of lines of tempText
if (line i of tempText is not empty) ¬
and length of (line i of tempText) ≠ 4 then
answer "The" && fieldName && "must be 4 characters." ¬
& return & "Please choose another one."
select line i of bg fld fieldName
return false
--exit uniqueIDs
end if
if allLowerCase (line i of tempText) then
answer "All lower case characters are reserved for Apple Computer's use only." ¬
& return & "Please choose another one."
select line i of bg fld fieldName
return false
--exit uniqueIDs
end if
put StrToHex3 (line i of tempText) into tempString
if fieldName = "Custom file types" then
if tempString is in "54455854" & return & "4150504C" & return ¬
& "50494354" & return & "50524546" & return & "424D4150" then
-- •• TEXT, APPL, PICT, PREF, and BMAP are standard types.
answer "Standard file types need not be registered."
select line i of bg fld fieldName
return false
end if
end if
if alreadyTaken (tempString, fieldName) and ¬
fieldname = "Signatures" then
answer line i of tempText && "is already taken." ¬
& return & "Please select another" with "OK"
-- & return & "Please choose another one."  -- changed by RRK 5/3/93
--if it = "Yes" then
--  return true
--else
delete line i of bg fld fieldName
return false
--exit uniqueIDs
--end if
else if alreadyTaken (tempString, fieldName) then
answer line i of tempText && "is already taken." ¬
& return & "Please choose another one."
select line i of bg fld fieldName
return false
--exit uniqueIDs
end if
end repeat
return true
end uniqueIDs

function allLowerCase tempString
if tempString is empty then return false
put charToNum ("a") into lowerBound
put charToNum ("z") into upperBound
repeat with i = 1 to length of tempString
put charToNum (char i of tempString) into tempChar
if (tempChar < lowerBound) ¬
or (tempChar > upperBound) then return false
end repeat
return true
end allLowerCase

function alreadyTaken string, fieldName
if string is in bg fld ("Taken" && fieldName && "1") then return true
if string is in bg fld ("Taken" && fieldName && "2") then return true
if string is in bg fld ("Taken" && fieldName && "3") then return true
if string is in bg fld ("Taken" && fieldName && "4") then return true
if string is in bg fld ("Taken" && fieldName && "5") then return true
if string is in bg fld ("Taken" && fieldName && "6") then return true
if string is in bg fld ("Taken" && fieldName && "7") then return true
if string is in bg fld ("Taken" && fieldName && "8") then return true
return false
end alreadyTaken

function checkLength fieldName
put bg fld fieldName into tempText
repeat with i = 1 to number of lines of tempText
if (line i of tempText is not empty) ¬
and length of (line i of tempText) ≠ 4 then
answer "Custom resource/scrap types must be 4 characters." ¬
& return & "Please choose another one."
select line i of bg fld fieldName
return false
end if
end repeat
return true
end checkLength</script>
</background>